﻿Imports MySql.Data.MySqlClient
Public Class FrmRechProduit

    Private Sub FrmRechProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmStart
        Me.Top = 0
        Me.Left = 0

        'Requête pour le remplissage du DataGrid
        'MySQLConnect.MaRequete = "SELECT LibelleProduit, NomFournisseur FROM Produit, Fournisseur WHERE Fournisseur.idFournisseur = Produit.idFourn"
        'MySQLConnect.MaCommandeSpecialeRequete.CommandText = MySQLConnect.MaRequete
        'MySQLConnect.MonRemplisseur.SelectCommand = MySQLConnect.MaCommandeSpecialeRequete
        'MySQLConnect.MonRemplisseur.Fill(MySQLConnect.MonJeuDeDonnees, "ToutesLesRechProduits")
        'DGRechProduits.DataSource = MySQLConnect.MonJeuDeDonnees.Tables("ToutesLesRechProduits")

    End Sub

    Private Sub txtRechNomProduit_TextChanged_1(sender As Object, e As EventArgs) Handles txtRechNomProduit.TextChanged
        rafraichir()
        'Requête pour le remplissage du DataGrid
        MySQLConnect.marequete = "call rechNomPdt('" & txtRechNomProduit.Text & "%')"
        MySQLConnect.macommandespecialerequete.CommandText = MySQLConnect.marequete
        MySQLConnect.monremplisseur.SelectCommand = MySQLConnect.macommandespecialerequete
        MySQLConnect.monremplisseur.Fill(MySQLConnect.monjeudedonnees, "ToutesLesRechProduits")
        DGRechProduits.DataSource = MySQLConnect.monjeudedonnees.Tables("ToutesLesRechProduits")

    End Sub
    Public Sub rafraichir()
        MySQLConnect.monjeudedonnees.Tables.Clear()
    End Sub
End Class